home *** CD-ROM | disk | FTP | other *** search
/ Aminet 32 / Aminet 32 (1999)(Schatztruhe)[!][Aug 1999].iso / Aminet / text / edit / CedBar.lha / CedBar / AddEffect.g next >
Text File  |  1999-05-10  |  2KB  |  115 lines
  1. G4C
  2.  
  3. ;       A gui to add Amiga guide effects
  4. ; ========================================================
  5.  
  6. WINBIG 385 20 241 68 'Add Effect'
  7. WinType 11110001
  8. winonmouse 40 15
  9. resinfo 8 660 270
  10. BOX 0 0 0 0 out button
  11.  
  12. ; ========================================================
  13. ;       start up & end
  14. ; ========================================================
  15.  
  16. xOnLoad
  17. setgadvalues addeffect.g
  18. guiopen addeffect.g
  19.  
  20. xonreload
  21. guiopen addeffect.g
  22.  
  23. xonopen ; reset
  24. update addeffect.g 1 0
  25. update addeffect.g 2 0
  26. update addeffect.g 3 0
  27. update addeffect.g 4 0
  28. update addeffect.g 5 0
  29. fg = text
  30. bg = background
  31.  
  32. ; ========================================================
  33. ;       effect gadgets
  34. ; ========================================================
  35.  
  36. XCHECKBOX 84 6 26 11 "Bold" bl 1 0 OFF
  37. gadid 1
  38.  
  39. XCHECKBOX 84 18 26 11 "Underline" ul 1 0 OFF
  40. gadid 2
  41.  
  42. XCHECKBOX 84 30 26 11 "Italic" it 1 0 OFF
  43. gadid 3
  44.  
  45. TEXT 128 4 22 14 'Foreground' 10 NOBOX
  46. XCYCLER 125 18 108 14 "" fg
  47. gadid 4
  48. CSTR Text text
  49. CSTR Shine shine
  50. CSTR Shadow shadow
  51. CSTR Fill fill
  52. CSTR FillText filltext
  53. CSTR Backgnd background
  54. CSTR Highlight highlight
  55.  
  56.  
  57. TEXT 129 33 22 13 'Background' 10 NOBOX
  58. XCYCLER 125 47 108 14 "" bg
  59. gadid 5
  60. CSTR Backgnd background
  61. CSTR Highlight highlight
  62. CSTR Text text
  63. CSTR Shine shine
  64. CSTR Shadow shadow
  65. CSTR Fill fill
  66. CSTR FillText filltext
  67.  
  68.  
  69. ; ========================================================
  70. ;       Do it.
  71. ; ========================================================
  72.  
  73. BOX 15 46 88 18 OUT BUTTON
  74. XBUTTON 19 48 80 14 "Apply"
  75.  
  76. SendRexx $cedbar.gc/cedport cut
  77.  
  78. ; apply start of effects which have been chosen
  79. if $bl = 1
  80.    SendRexx $cedbar.gc/cedport 'text @{B}'
  81. endif
  82. if $ul = 1
  83.    SendRexx $cedbar.gc/cedport 'text @{U}'
  84. endif
  85. if $it = 1
  86.    SendRexx $cedbar.gc/cedport 'text @{I}'
  87. endif
  88. if $fg != text
  89.    SendRexx $cedbar.gc/cedport 'text @{FG $fg\}'
  90. endif
  91. if $bg != background
  92.    SendRexx $cedbar.gc/cedport 'text @{BG $bg\}'
  93. endif
  94.  
  95. ; paste selection back
  96. SendRexx $cedbar.gc/cedport paste
  97.  
  98. ; apply ending of effects
  99. if $bg != background
  100.    SendRexx $cedbar.gc/cedport 'text @{BG background}'
  101. endif
  102. if $fg != text
  103.    SendRexx $cedbar.gc/cedport 'text @{FG text}'
  104. endif
  105. if $it = 1
  106.    SendRexx $cedbar.gc/cedport 'text @{UI}'
  107. endif
  108. if $ul = 1
  109.    SendRexx $cedbar.gc/cedport 'text @{UU}'
  110. endif
  111. if $bl = 1
  112.    SendRexx $cedbar.gc/cedport 'text @{UB}'
  113. endif
  114.  
  115.